home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -serious- / programming / e / lsestuff / bricks.e < prev    next >
Text File  |  1999-11-29  |  197b  |  14 lines
  1.  
  2. OBJECT robj
  3.    next:PTR TO robj
  4.    prev:PTR TO robj
  5.    id
  6. ENDOBJECT
  7.  
  8. PROC find(id) OF robj
  9.    IF self.id = id THEN RETURN self
  10.    IF self.next = NIL THEN RETURN NIL
  11.    self.next.find(id)
  12. ENDPROC
  13.  
  14.